home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / tess / tess-1.0 / p2.m < prev    next >
Encoding:
Text File  |  1992-06-30  |  692 b   |  42 lines
  1. #import "p2.h"
  2.  
  3. @implementation p2
  4. - clip: (NXCoord) x: (NXCoord) y 
  5. { 
  6.   if(upx < 0.0)
  7.     PSmoveto(x-upx,y);
  8.   else
  9.     PSmoveto(x,y);
  10.   PSrlineto(overx,0);
  11.   PSrlineto(upx-overx,upy);
  12.   PSclosepath();
  13.   PSclip();
  14.   return self;
  15. }
  16.  
  17. - makeLatticeUnitAt: (NXPoint *) point fromImage: srcimg 
  18. {
  19.   id imgrep;
  20.   NXPoint pt;
  21.   
  22.   pt.x = - point->x ;
  23.   pt.y = - point->y ;
  24.   imgrep = [srcimg bestRepresentation];
  25.   PSgsave();
  26.   [self clip:0.0:0.0];
  27.   [imgrep drawAt: &pt];
  28.   PSgrestore();
  29.   PSgsave();
  30.   PSrotate(180);
  31.   // ??????!!!!!
  32.   if(upx < 0)
  33.     PStranslate(upx,-upy);
  34.   else
  35.     PStranslate(-upx,-upy);
  36.   [self clip:0.0:0.0];
  37.   [imgrep drawAt: &pt];
  38.   PSgrestore();
  39.   return self;
  40. }
  41. @end
  42.